home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / interpcb.arc / IP.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-04-20  |  2.3 KB  |  75 lines
  1.  
  2.  
  3.  
  4. @echo off
  5.  
  6. :writing
  7. ip /i /e /s /f:I:\FD\MSG\WRITING /p:I:\FD\MSG\WRITING\writing
  8.  
  9. if errorlevel 10 goto userbreak         ; User break
  10. if errorlevel 6 goto pack1              ; Index has to be packed
  11. if errorlevel 5 goto group              ; Message base locked
  12. if errorlevel 4 goto wrongparams        ; Invalid parameters
  13. if errorlevel 3 goto nospace            ; Insufficient disk space
  14. if errorlevel 2 goto fatal              ; Fatal error
  15. if errorlevel 1 goto group              ; No messages
  16. if errorlevel 0 goto group              ; Messages imported, don't pack
  17.  
  18. :pack1
  19. propack I:\FD\MSG\WRITING\writing 300 /deklrtvn30
  20.  
  21. :group
  22. ip /i /e /s /f:F:\FD\MSG\GROUP /p:F:\FD\MSG\GROUP\group
  23.  
  24. if errorlevel 10 goto userbreak         ; User break
  25. if errorlevel 6 goto pack2              ; Index has to be packed
  26. if errorlevel 5 goto loni               ; Message base locked
  27. if errorlevel 4 goto wrongparams        ; Invalid parameters
  28. if errorlevel 3 goto nospace            ; Insufficient disk space
  29. if errorlevel 2 goto fatal              ; Fatal error
  30. if errorlevel 1 goto loni               ; No messages
  31. if errorlevel 0 goto loni               ; Messages imported, don't pack
  32.  
  33. :pack2
  34. propack F:\FD\MSG\GROUP\group 200 /deklrtvn15
  35.  
  36. :loni
  37. ip /i /e /s /f:I:\FD\MSG\LONI /p:I:\FD\MSG\LONI\lonix
  38.  
  39. if errorlevel 10 goto userbreak         ; User break
  40. if errorlevel 6 goto pack3              ; Index has to be packed
  41. if errorlevel 5 goto end                ; Message base locked
  42. if errorlevel 4 goto wrongparams        ; Invalid parameters
  43. if errorlevel 3 goto nospace            ; Insufficient disk space
  44. if errorlevel 2 goto fatal              ; Fatal error
  45. if errorlevel 1 goto end                ; No messages
  46. if errorlevel 0 goto end                ; Messages imported, don't pack
  47.  
  48. :pack3
  49. propack I:\FD\MSG\LONI\lonix 300 /deklrtvn20
  50.  
  51. goto end
  52.  
  53. :userbreak
  54. echo BATCH PROCESSING ABORTED BY USER
  55. goto finished
  56.  
  57. :wrongparams
  58. echo == IP CALLED WITH INVALID PARAMETERS! > e:\log\fd.log
  59. goto finished
  60.  
  61. :nospace
  62. echo == INSUFFICIENT DISK SPACE DURING IMPORT/EXPORT > e:\log\fd.log
  63. goto end
  64.  
  65. :fatal
  66. echo == FATAL ERROR IN IMPORT/EXPORT > e:\log\fd.log
  67. goto end
  68.  
  69. :end
  70. echo *** PCBoard import/import complete ***
  71. wipe f:\fd\msg\*.bak /b
  72. wipe i:\fd\msg\*.bak /b
  73.  
  74. :finished
  75.